home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / smb_hotfixes.nasl < prev    next >
Text File  |  2005-01-14  |  7KB  |  220 lines
  1. #
  2. # (C) Tenable Network Security
  3. #
  4.  
  5. if(description)
  6. {
  7.  script_id(13855);
  8.  script_version("$Revision: 1.5 $");
  9.  
  10.  name["english"] = "Installed Windows Hotfixes";
  11.  
  12.  script_name(english:name["english"]);
  13.  
  14.  desc["english"] = "
  15. This script enumerates the list of installed hotfixes on the remote host
  16. and store them in the knowledge base for the other SMB scripts to use, to
  17. avoid useless connections to the remote registry.
  18.  
  19. This script required credentials to log into the remote host.";
  20.  
  21.  
  22.  script_description(english:desc["english"]);
  23.  
  24.  summary["english"] = "Fills the KB with the list of installed hotfixes";
  25.  
  26.  script_summary(english:summary["english"]);
  27.  
  28.  script_category(ACT_GATHER_INFO);
  29.  
  30.  script_copyright(english:"This script is Copyright (C) 2004 Tenable Network Security");
  31.  family["english"] = "Windows";
  32.  script_family(english:family["english"]);
  33.  
  34.  script_dependencies("netbios_name_get.nasl", "smb_login.nasl","smb_registry_full_access.nasl", "smb_reg_service_pack.nasl","smb_reg_service_pack_W2K.nasl", "smb_reg_service_pack_XP.nasl");
  35.  if ( defined_func("bn_random") ) script_dependencies("ssh_get_info.nasl");
  36.  script_require_keys("SMB/name", "SMB/login", "SMB/password",  "SMB/registry_access");
  37.  
  38.  script_require_ports(139, 445);
  39.  exit(0);
  40. }
  41.  
  42. if ( get_kb_item("SMB/samba") ) exit(0);
  43. if ( get_kb_item("SMB/Registry/Enumerated") ) exit(0);
  44. include("smb_nt.inc");
  45.  
  46. global_var handle;
  47.  
  48. function crawl(key, level, maxlevel)
  49. {
  50.  local_var mylist, entries, l, list;
  51.  list = make_list();
  52.  entries = make_list();
  53.  
  54.  if ( level >= maxlevel ) return make_list();
  55.  
  56.  key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  57.  if(key_h)
  58.  {
  59.   entries = registry_enum_key(soc:soc, uid:uid, tid:tid, pipe:pipe, reply:key_h);
  60.   registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe, reply:key_h);
  61.  }
  62.  
  63.  foreach l (entries)
  64.   {
  65.   list = make_list(list, key + "\" + l );
  66.   }
  67.  
  68.  
  69.  entries = make_list();
  70.  foreach l (list)
  71.  {
  72.   entries = make_list(entries, crawl(key:l, level:level + 1, maxlevel:maxlevel));
  73.  }
  74.  
  75.  return make_list(list, entries);
  76. }
  77.  
  78.  
  79. x_name = kb_smb_name();
  80. if(!x_name)exit(0);
  81.  
  82. _smb_port = kb_smb_transport();
  83. if(!_smb_port)exit(0);
  84.  
  85. if(!get_port_state(_smb_port)) exit(0);
  86. login = kb_smb_login();
  87. pass  = kb_smb_password();
  88. domain = kb_smb_domain();
  89.  
  90. if(!login)login = "";
  91. if(!pass) pass = "";
  92.  
  93.       
  94. soc = open_sock_tcp(_smb_port);
  95. if(!soc) exit(0);
  96.  
  97. #
  98. # Request the session
  99. # 
  100. r = smb_session_request(soc:soc,  remote:x_name);
  101. if(!r) { close(soc); exit(0); }
  102.  
  103. #
  104. # Negociate the protocol
  105. #
  106. prot = smb_neg_prot(soc:soc);
  107. if(!prot){ close(soc); exit(0); }
  108.  
  109.  
  110. r = smb_session_setup(soc:soc, login:login, password:pass, domain:domain, prot:prot);
  111. if(!r){ close(soc); exit(0); }
  112. uid = session_extract_uid(reply:r);
  113.  
  114. r = smb_tconx(soc:soc, name:x_name, uid:uid, share:"IPC$");
  115. tid = tconx_extract_tid(reply:r);
  116. if(!tid){ close(soc); exit(0); }
  117.  
  118.  
  119. r = smbntcreatex(soc:soc, uid:uid, tid:tid, name:"\winreg");
  120. if(!r){ close(soc); exit(0);}
  121. pipe = smbntcreatex_extract_pipe(reply:r);
  122.  
  123. r = pipe_accessible_registry(soc:soc, uid:uid, tid:tid, pipe:pipe);
  124. if(!r){ close(soc); exit(0); }
  125. handle = registry_open_hklm(soc:soc, uid:uid, tid:tid, pipe:pipe);
  126.  
  127.  
  128. location1 = "SOFTWARE\Microsoft\Updates";
  129. location2 = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\HotFix";
  130.  
  131. list = make_list(crawl(key:location1, level:0, maxlevel:3), 
  132.              crawl(key:location2, level:0, maxlevel:1));
  133.          
  134. if ( max_index(list) > 0 )
  135. {
  136.   set_kb_item(name:"SMB/Registry/Enumerated", value:TRUE);
  137. }
  138. foreach l ( list ) 
  139. {
  140.  l = str_replace(find:"\", replace:"/", string:l);
  141.  name = "SMB/Registry/HKLM/" + l;
  142.  # Maybe we want to improve that in Nessus 2.1.x by storing everything as a huge string...
  143.  set_kb_item(name:name, value:TRUE);
  144. }
  145.  
  146.  
  147.  
  148. #
  149. # Check for common registry values other plugins are likely to look at
  150. # 
  151. key = "SYSTEM\CurrentControlSet\Control\ProductOptions";
  152. item = "ProductType";
  153.  
  154. key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  155. if ( key_h )
  156. {
  157.  data = registry_get_item_sz(soc:soc, uid:uid, tid:tid, pipe:pipe, item:item, reply:key_h);
  158.  value = registry_decode_sz(data:data);
  159.  registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe, reply:key_h);
  160.  if ( value ) set_kb_item(name:"SMB/Registry/HKLM/SYSTEM/CurrentControlSet/Control/ProductOptions", value:value);
  161. }
  162.  
  163.  
  164. key = "SYSTEM\CurrentControlSet\Services\W3SVC";
  165. item = "ImagePath";
  166.  
  167. key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  168. if ( key_h )
  169. {
  170.  data = registry_get_item_sz(soc:soc, uid:uid, tid:tid, pipe:pipe, item:item, reply:key_h);
  171.  value = registry_decode_sz(data:data);
  172.  registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe,  reply:key_h);
  173.  if ( value ) set_kb_item(name:"SMB/Registry/HKLM/SYSTEM/CurrentControlSet/Services/W3SVC/ImagePath", value:value);
  174. }
  175.  
  176. key = "SOFTWARE\Microsoft\DataAccess";
  177. item = "Version";
  178.  
  179. key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  180. if ( key_h )
  181. {
  182.  data = registry_get_item_sz(soc:soc, uid:uid, tid:tid, pipe:pipe, item:item, reply:key_h);
  183.  if ( data ) value = registry_decode_sz(data:data);
  184.  registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe,  reply:key_h);
  185.  if ( value ) set_kb_item(name:"SMB/Registry/HKLM/SOFTWARE/Microsoft/DataAccess/Version", value:value);
  186. }
  187.  
  188. key = "SOFTWARE\Microsoft\Exchange\Setup";
  189. item = "ServicePackBuild";
  190.  
  191. key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  192. if ( key_h )
  193. {
  194.  data = registry_get_item_dword(soc:soc, uid:uid, tid:tid, pipe:pipe, item:item, reply:key_h);
  195.  if ( data ) value = registry_decode_dword(data:data);
  196.  registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe,  reply:key_h);
  197.  if ( value ) set_kb_item(name:"SMB/Registry/HKLM/SOFTWARE/Microsoft/Exchange/Setup/ServicePackBuild", value:value);
  198. }
  199.  
  200. key = "SYSTEM\CurrentControlSet\Services\DHCPServer";
  201.  
  202. key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  203. if ( key_h )
  204. {
  205.  set_kb_item(name:"SMB/Registry/HKLM/SYSTEM/CurrentControlSet/Services/DHCPServer", value:1);
  206.  registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe,  reply:key_h);
  207. }
  208.  
  209.  
  210. key = "SYSTEM\CurrentControlSet\Services\WINS";
  211. item = "DisplayName";
  212. key_h = registry_get_key(soc:soc, uid:uid, tid:tid, pipe:pipe, key:key, reply:handle);
  213. if ( key_h )
  214. {
  215.  data = registry_get_item_dword(soc:soc, uid:uid, tid:tid, pipe:pipe, item:item, reply:key_h);
  216.  if ( data ) value = registry_decode_dword(data:data);
  217.  registry_close(soc:soc, uid:uid, tid:tid, pipe:pipe,  reply:key_h);
  218.  if ( value ) set_kb_item(name:"SMB/Registry/HKLM/SYSTEM/CurrentControlSet/Services/WINS/DisplayName", value:value);
  219. }
  220.